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ABSTRACT 


In  this  thesis  the  two-dimensional  vehicle  loading 
problem  is  considered:  that  is,  the  problem  of  loading  a 
rectangular  deck  of  size  L  by  W  of  a  ship,  drawing  from 
a  set  of  n  vehicles.  The  objective  is  to  maximize  the  area 
covered  on  the  deck  by  the  vehicles  loaded.  A  heuristic 
algorithm  is  employed  to  solve  the  two-dimensional  loading 
problem.  A  computer-aided  vehicle  embarkation  system  (CAVES) 
is  developed  using  a  menu  driven  micro-computer  program 
designed  to  assist  embarkation  personnel  to  load  vehicles  on 
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INTRODUCTION 


A.  BACKGROUND 

While  embarkation  techniques  may  have  changed  some  over 
!  the  last  20  years,  developing  load  diagrams  still  remains  a 

very  tedious  and  manual  chore  for  the  Marine  Corps 
Embarkation  Officer.  Even  with  the  updating  from  the 
^  Mechanized  Embarkation  Data  System  (MEDS)  to  the  Standard 

Embarkation  Management  System  (SEMS)  in  1981,  the 

Embarkation  Officer  still  has  the  task  of  manually  creating 
load  diagrams  using  paper  templates.  The  Air  Force  has 
developed  and  uses  a  computer  loading  system  for  airplanes 
called  the  Deployable  Mobility  Execution  System  (DMES) ;  yet, 
I  there  is  no  computer  loading  system  currently  being  used  to 

load  Navy  ships.  In  an  attempt  to  fill  this  void  a  computer- 
aided  vehicle  embarkation  system  (CAVES)  was  developed. 

j 

B.  THE  NEED  FOR  COMPUTERIZATION 

Generating  load  diagrams  is  somewhat  routine. 
Nevertheless  it  draws  on  the  experience  and  skill  of  the 
Marine  Corps  Embarkation  Officer  to  determine  the  load 
pattern  which  yields  the  best  utilization  of  a  ships  space, 
taxing  into  account  the  tactical  requirements.  This  task  is 
laborious  and  very  time  consuming.  With  the  advanced 


computer  technology  of  today,  the  archaic  use  of  paper 


templates  can  be  updated  by  a  computer  system.  Thus,  using  a 
computer  to  automatically  generate  vehicle  load  diagrams  has 
considerable  practical  value  to  the  United  States  Marine 
Corps. 


C.  THE  MICRO-COMPUTER 

The  flexibility  and  portability  needed  by  the  Marine 
Corps  Embarkation  Officer  to  make  real  time  decisions  about 
vehicle  load  plans  emphasizes  the  need  for  computerization. 
The  micro-computer,  with  its  small  physical  dimensions  and 
relatively  low  cost  when  compared  to  a  mainframe  computer, 
can  tackle  problems  of  considerable  complexity.  It  has 
several  advantages  over  the  mainframe  machines.  The  two  main 
advantages  are  the  portability  of  the  micro-computer  and  the 
interaction  capable  between  the  user  and  the  computer 
(Ref.  1).  What  the  micro-computer  makes  possible  is  the 
combination  of  the  speed  of  a  computer  together  with  the 
skill  and  experience  of  the  embarkation  personnel,  in  an 
interactive  manner.  With  the  Marine  Corps  constant 
deployment  on  Navy  ships  around  the  world,  the  micro¬ 
computer  can  be  there  ready  to  aid  embarkation  personnel  in 
developing  load  plans  as  well  as  serving  as  a  database 
management  tool,  for  loading  the  various  vehicles,  cargo, 
and  personnel. 


0.  MARINE  CORPS  EMBARKATION 


Marine  Corps  embarkation  is  defined  to  be  the  loading  of 
Marines  with  their  supplies  and  equipment  onto  ships  and/or 
aircraft.  Marine  Corps  embarkation  includes  the  loading  of 
pallets,  personnel,  vehicles,  and  other  equipment;  however 
the  loading  of  vehicles  is  the  only  topic  discussed  in  this 
thesis.  While  the  loading  of  vehicles  onto  Navy  ships  is  the 
primary  concern,  loading  can  be  divided  into  two  types: 
administrative  and  oombat.  Administrative  loading 
emphasizes  maximum  use  of  cargo  space  without  regard  for 
tactical  considerations.  It  presumes  that  the  initial 
destination  is  a  marshalling  area  where  troops  and  cargo  may 
be  discharged  free  of  enemy  interdiction.  Equipment  and 
supplies  must  be  unloaded  before  they  can  be  used.  Combat 
loading  is  the  stowage  of  a  vessel  so  that  the  equipment 
needed  for  a  landing  attack  may  be  rapidly  unloaded  in  a 
needed  priority.  Primary  emphasis  is  placed  on  tactical 
considerations  rather  than  the  economic  use  of  the  ship's 
space.  Marines  seldom  load  ships  administratively; 
therefore,  combat  loading  is  the  primary  consideration  of 
the  load  algorithm.  [Ref.  2} 

E.  VEHICLE  STOWAGE  PLANNING 

Size,  shape,  weight,  unload  priority,  and  serial 
grouping  are  a  few  of  the  many  details  that  are  considered 
when  planning  the  stowage  of  vehicles.  Vehicles  and  cargo 
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are  often  loaded  in  the  same  compartment;  however,  vehicles 
normally  have  a  higher  priority  for  unloading.  Therefore, 
space  available  for  cargo  cannot  be  accurately  determined 
until  the  vehicle  stowage  planning  is  complete.  The 
following  specific  rules  apply  when  planning  vehicle 
stowage: 

1.  Each  vehicle  occupies  deck  space  of  specific  size 
and  shape. 

2.  Overhead  hatches  must  be  large  enough  and/or  ramp 
clearances  must  be  sufficient  to  allow  passage  of 
vehicles . 

3.  If  unloading  is  accomplished  by  boom/crane  or  by 
helicopter,  these  apparatuses  must  have  sufficient 
capacity  to  lift  fully  loaded  vehicles. 

4.  Each  vehicle  is  positioned  on  the  ship  in  such  a 
manner  as  to  ensure  that  it  can  be  unloaded  in 
accordance  with  its  assigned  priority  number. 

5.  A  marriage,  a  towed  vehicle  and  its  prime  mover,  must 
be  stowed  in  the  same  compartment  to  ensure  that  they 
are  not  separated  during  debarkation. 

6.  Stowage  must  be  planned  so  that  the  vehicles  can  be 
moved  to  the  ramp,  access  doors  or  the  space  under  the 
overhead  hatch  square  without  excessive  maneuvering. 

7.  No  vehicle  may  be  stowed  athwartships .  Vehicles  are 
stowed  fore  and  aft  to  preclude  loosening  of  lashing 
caused  by  the  side-to-side  movement  (roll)  of  the 
ship. 

8.  A  broken  stowage  factor  of  .8  is  applied  to  the  deck 
loading  area  to  determine  the  available  vehicle 
stowage  area. 


F.  VEHICLE  LOAD  PROBLEM 

Given  n  number  of  vehicles  of  different  sizes,  shapes, 
and  weights,  the  vehicle  load  problem  loads  these  vehicles 


onto  a  ship's  deck  of  size  L  by  W,  accounting  for  the 
length,  width,  height,  weight,  priority  number  and  marriage 
constraints  of  the  vehicles.  The  objective  is  to  maximize 
the  area  covered  on  the  deck  by  the  vehicles  being  loaded. 
In  addition  to  the  above  constraints  there  are  a  number  of 
independent  variables  that  are  considered  when  loading 
vehicles  on  board  a  ship.  The  variables  of  importance  are  as 
follows: 

1.  Clearance  between  vehicles. 

2.  Rules  for  loading  vehicles  with  trailers  or  towed 
loads. 

3.  Rules  for  loading  non-rectangular  shaped  objects. 

Each  constraint  will  be  discussed  in  turn. 

Even  though  the  vehicle  loading  problem  is  thought  of  as 
only  a  two-dimensional  problem  (no  stacking  involved),  the 
height  of  the  vehicle  plays  a  key  role.  Obviously,  if  the 
vehicle  exceeds  the  height  restrictions  it  will  not  fit  in 
the  alloted  deck  space.  Though  the  weight  is  listed  as  a 
constraint  and  is  a  required  input  for  CAVES,  the  weight 
distribution  of  the  vehicles  loaded  on  board  the  ship  was 
not  addressed  in  this  thesis.  Except  for  the  LKA,  the 
vehicle's  weight  distribution  should  not  present  any  loading 
problems  for  Navy  amphibious  ships. 

Given  that  a  vehicle  meets  the  height  requirements,  the 
primary  consideration  used  in  the  loading  of  vehicles  is  the 
priority  number.  The  priority  number  represents  the  order  in 
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which  the  vehicles  will  go  ashore.  The  ordering  process  is 
such  that  the  lowest  numbered  vehicle  has  the  highest 


priority  and  must  be  landed  ashore  first.  When  the 
Embarkation  Officer  is  placing  vehicle  templates  on  the  deck 
diagram  to  configure  the  load,  the  highest  priority  vehicle 
is  placed  first.  This  is  continued  in  numerical  order  with 
the  rest  of  the  vehicle  templates.  The  loading  algorithm  in 
CAVES  loads  the  ship's  deck  in  exactly  this  manner.  This 
process  which  is  described  in  Chapter  IV  is  best  used  for 
well  deck  operative  ships  (e.g.  LPD,  LSD).  When  the  ship  is 
being  physically  loaded,  the  first-in  last-out  concept  is 
utilized.  Therefore,  since  the  vehicle  with  priority  number 
one  is  to  be  landed  ashore  first,  it  is  physically  loaded 
last  on  board  the  ship. 

A  vehicle  marriage,  will  always  have  sequential  priority 
numbers.  Therefore,  it  is  desirable  to  be  able  to  load  the 
towed  vehicle  immediately  behind  its  designated  prime  mover. 
Sometimes,  because  of  the  space  limitations,  this  is 
impossible.  Therefore,  the  towed  vehicle  must  be  loaded 
beside  its  prime  mover.  Trailers  or  similiar  towed  vehicles 
can  be  loaded  in  one  of  two  ways: 

1.  Remain  attached  to  the  prime  mover. 

2.  Disengage  the  lunette  of  the  trailer  and  push  the  tow 
bar  beneath  the  prime  mover  to  decrease  total  length. 

The  minimum  clearance  between  vehicles  is  one  foot.  An 
additional  six  inches  is  added  to  the  length  and  width  of 
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each  vehicle  to  obtain  the  minimum  clearance.  The  one  foot 


spacing  between  vehicles  allows  the  vehicles  to  be  tied-down 
to  the  deck. 

The  loading  of  irregularly  shaped  towed  loads  such  as 
artillery  pieces  presents  a  special  problem.  Because  of 
their  triangular  shape  they  tend  to  occupy  more  space  and 
require  more  manuevering  by  hand.  Since  CAVES  considers  only 
rectangularly  shaped  vehicles,  the  artillery  pieces  could  be 
loaded  in  pairs  making  a  roughly  rectangular  shape. 


II.  OBJECTIVES  AND  SCOPE 


The  objectives  of  this  study  were  to  review  the  existing 
loading  algorithms  and  develop  a  user-friendly  computer 
program  to  help  embarkation  personnel  load  vehicles  on  board 
a  ship.  CAVES  was  designed  as  a  menu  driven  computer  program 
to  make  it  as  simple  as  possible  to  utilize.  The  intent  was 
to  design  a  computer  program  that  a  user  with  little  or  no 
embarkation  experience  could  use.  The  system  was  developed 
specifically  for  use  on  a  micro-computer  and  presupposes 
that  the  user  has  some  knowledge  of  operating  a  micro¬ 
computer  and  that  all  necessary  data  for  the  vehicles  to  be 
loaded  are  available.  It  is  assumed  that  all  vehicles  are 
rectangular,  no  irregular  shapes  are  used,  and  the  ship's 
deck  where  the  vehicles  are  to  be  loaded  is  rectangular.  It 
is  also  assumed  that  the  area  of  the  ship's  deck  where  the 
vehicles  are  being  loaded  is  clear  of  any  obstacles  or  non- 
stowable  areas. 

Neither  the  weight  distribution  nor  the  center  of 
gravity  restrictions  are  addressed  by  the  load  algorithm. 
However,  these  restrictions  could  be  included  by  modif^’ing 
the  load  algorithm. 
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III.  REVIEW  OF  EXISTING  ALGORITHMS 


The  interest  in  two-dimensional  allocation  type  problems 
has  grown  over  the  past  thirty  years.  This  is  in  part  due  to 
the  important  role  these  problems  play  in  computer-aided  and 
computer-automated  design  applications,  particularly  those 
related  to  sheet  metal  fabrication,  garment  making,  template 
layout  and  circuit  layout  [Ref.  3].  With  the  appearance  of 
large  mainframe  computers  and  the  development  of  computer 
oriented  optimization  techniques  such  as  linear  and  dynamic 
programming,  the  interest  has  continued  to  grow.  In  this 
chapter  a  survey  of  some  of  the  available  literature 
concerning  methods  used  to  solve  these  two-dimensional 
problems  is  presented.  First  of  interest  is  the  work  of 
Gilmore  and  Gomory  [Ref.  4]  and  their  developement  of 
knapsack  functions.  Next,  two  related  problems,  the  Cutting 
Stock  and  Template-Layout  problems,  are  introduced.  Finally 
the  Loading  problem  is  presented. 

A.  THE  KNAPSACK  PROBLEM 

The  problem  of  cutting  a  one-dimensional  object  (e.g.  a 
length  of  some  material)  into  smaller  pieces  -  each  piece 
having  a  given  length  and  value  -  in  such  a  way  as  to 
maximize  the  total  value  of  pieces  cut  is  the  "knapsack 


Mathematically  the  knapsack  function  F(x)  is 


problem" . 
defined  for  lengths 
the  equation: 


1 

1 


,1  of  given  values  II 
m  1 


II  by 
m 


F(x)  =  max{z  II  +  ...  +  Z  II  ;  1  Z  +  ...  +  1  Z  <  x} 

11  mmll  mtn 

{Z  ^  0,  Z  integer} 
i  i 

where  II  and  1  are  given  constants,  i  =  l,...m.  Here  the 
i  i 

problem  is  one  of  fitting  lengths  1  into  a  box  of  length  x. 

i 

The  knapsack  problem  has  been  examined  by  a  number  of 

authors,  and  methods  for  its  solution  have  been  proposed 

using  either  dynamic  programming  (Ref.  5]  or  tree  search 

techniques  (Ref.  6].  The  attention  here  is  motivated  by  many 

practical  problems  that  can  be  formulated  as  knapsack 

problems,  one  typical  case  being  the  vehicle  loading  problem 

(Ref.  7).  Given  rectangles  of  dimensions  (1  ,w  )  ,  i  == 

i  i 

l,...,m  that  have  nonnegative  values  II  ,...,!!  associated 

1  m 

with  them  a  two-dimensional  knapsack  function  G  is  defined 
as  follows: 


G{x,y)  *  max{II  Z  ■♦•  ...  +  II  Z  } 
11  mm 


where  Z  ,...,Z  are  nonnegative  integers  such  that  there 
1  m 

exists  a  way  of  dividing  a  large  rectangle  (x,y)  into  Z 

i 

rectangles  (1  ,w  ),  i  *  l,...m.  (Ref.  4,  pp.  1045-1046] 
i  i 
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B.  THE  CUTTING  STOCK  PROBLEM 

The  two-dimensional  cutting  stock  problem  requires 
cutting  a  large  rectangle  into  smaller  rectangular  pieces  of 
specified  sizes  and  values  so  as  to  minimize  the  total 
waste.  Hahn  [Ref.  8]  investigates  the  cutting  stock  problem 
in  the  two-dimensional  trim  problem  which  has  arisen  in 
industries  that  produce  glass,  veneer,  film,  etc.  To 
minimize  waste,  manufacturers  use  some  material  with 
defective  areas.  The  manufacturers  get  orders  for  a  certain 
number  of  different  sizes  to  be  cut  out  of  the  available 
sheets.  The  problem  is  now  to  find  the  combination  of  sizes 
to  be  cut  out  of  the  available  sheets  which  minimizes  the 
waste.  The  dynamic  programming  approach  used  in  this 
optimization,  requires  that  a  value  be  attached  to  every 
size.  Whenever  a  size  is  fitted  in,  its  value  is  added  to 
the  total  value  of  the  sizes  already  used  for  that  sheet. 
The  optimal  combination  will  be  the  one  with  the  greatest 
possible  value. 


Christofides  and  Whitlock  [Ref.  9)  use  a  tree-search 
algorithm  for  the  two-dimensional  cutting  problem  in  which 
there  is  a  constraint  on  the  maximum  number  of  each  type  of 
piece  that  is  to  be  produced.  Their  algorithm  limits  the 
size  of  the  tree  search  by  imposing  necessary  conditions  for 
the  cutting  pattern  to  be  optimal.  They  use  a  dynamic 
programming  procedure  for  the  solution  of  the  unconstrained 
problem. 


The  above  algorithm  is  also  constrained  to  consider  only 
cutting  patterns  made  by  guillotine  type  cuts.  A  guillotine 
type  cut  is  one  in  which  all  cuts  go  from  one  edge  of  the 
rectangle  to  be  cut,  to  the  opposite  edge.  Figure  2(a)  shows 
a  possible  cutting  pattern  using  only  guillotine  cuts  while 
Figure  2(b)  shows  a  cutting  pattern  that  could  not  be 
produced  using  guillotine  cuts. 

Steudel  (Ref.  10]  uses  a  heuristic  algorithm  employing 
dynamic  programming  to  solve  the  two-dimensional  cutting 
stock  problem  in  which  all  the  small  rectangles  are  of  the 
same  dimensions  and  nonguillotine  cuts  are  allowed. 

C.  THE  TEMPLATE-LAYOUT  PROBLEM 

The  template-layout  problem  is  characterized  by  the 
requirement  for  cutting  two-dimensional  shapes  or  rectangles 
out  of  large  sheets  in  an  optimum  manner  without  making  an 
exhaustive  search  of  all  possible  arrangements  [Ref.  11]. 
This  problem  is  closely  related  though  distinct  from,  the 
cutting  stock  problem.  In  the  template-layout  problem  the 
objective  is  to  obtain  as  many  pieces  as  possible  from  a 
fixed  number  of  sheets;  where  as  in  the  cutting  stock 
problem  the  objective  is  to  satisfy  a  fixed  demand  with  a 
minimum  number  of  sheets. 


In  1970  Haims  and  Freeman  [REf.  12]  developed  an 
algorithm  for  solving  the  template-layout  problem.  A  dynamic 
programming  approach  was  applied,  assuming  that  there  was  an 


Figure  la.  Cutting  pattern  made  with 
guillotine  cuts. 


Figure  lb.  Cutting  pattern  infeasible  with 
guillotine  cuts. 


Figure  1,  Cutting  Patterns 
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unlimited  supply  of  each  type  of  rectangle  and  that  the 
orientation  of  the  rectangles  may  be  either  fixed  or  left 
unspecified . 

D.  THE  LOADING  PROBLEM 

There  are  several  types  of  loading  problems.  Eilon  and 
Christofides  [Ref.  13]  discuss  one  type  of  loading  problem, 
which  is  akin  to  the  knapsack  problem.  This  particular  type 
of  loading  problem  is  defined  as  the  allocation  of  given 
items  with  known  magnitude  to  boxes  with  constrained 
capacity,  so  as  to  minimize  the  number  of  boxes  used.  They 
present  two  methods  for  solving  this  problem: 

1.  The  Zero-One  programming  method. 

2.  A  heuristic  algorithm. 

Another  type  of  loading  problem  is  the  pallet  loading 
problem.  The  pallet  loading  problem  can  be  viewed  as  a 
special  case  of  the  two-dimensional  cutting  stock  problem 
where  all  the  small  rectangles  are  of  identical  dimensions. 
The  problem  consists  of  partitioning  a  rectangular  pallet  of 
length  L  by  W  into  smaller  rectangular  areas  of  length 
1  and  width  w  so  as  to  determine  a  loading  pattern  which 
minimizes  the  amount  of  unused  pallet  area.  Another  version 
of  the  pallet  loading  problem  as  viewed  by  Hodgson  [Ref.  14] 
is  the  problem  of  loading  a  rectangular  pallet  of  size  L 
by  W,  drawing  from  a  set  of  n  rectangular  boxes.  The 
objective  here  is  to  maximize  the  area  covered  on  the  pallet 


IV.  THE  LOADING  ALGORITHM 


A.  GENERAL  DESCRIPTION 

The  main  function  of  CAVES  is  to  load  vehicles  on  a 
ship's  deck,  minimizing  the  area  used.  The  second  option  of 
CAVES'  main  menu  allows  the  user  to  load  a  ship's  deck  of 
specified  length,  width,  and  height  (See  Appendix  A  for  menu 
option  details).  CAVES  uses  a  hueristic  loading  routine  to 
load  the  vehicles. 

The  loading  algorithm  used  was  incorporated  from  a 
thesis  written  by  Nelson  [Ref.  15) .  The  algorithm  loads  one 
vehicle  at  a  time  by  inspecting  each  of  the  n  vehicles  in 
the  vehicle  file.  Vehicle  with  priority  number  one  is 
inspected  first,  vehicle  with  priority  number  two  is 
inspected  second,  and  so  forth  until  all  n  vehicles  are 
inspected.  If  the  vehicle  under  inspection  can  be  loaded 
without  violation  of  one  of  the  constraints  discussed  in 
section  IF  above,  the  vehicle  is  loaded.  If  the  current 
vehicle  does  violate  one  of  the  constraints,  it  is  passed 
over  and  the  next  vehicle  in  the  sequence  is  inspected  and 
loaded  if  possible.  If  none  of  the  vehicles  waiting  to  be 
loaded  can  be  loaded,  the  loading  process  is  ended. 

The  loading  procedure  requires  a  decision  to  be  made  as 
to  where  an  additional  vehicle  may  be  placed.  These 
locations  are  defined  as  "possible"  origins.  They  are 
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constrained  by  the  algorithm  to  be  either  the  origin  of  the 
ship's  deck  or  one  of  two  positions  relative  to  each  of  the 
vehicles  previously  loaded.  The  first  vehicle  being  loaded 
is  loaded  at  the  bottom  left  corner  of  the  deck  and 
thereafter  the  possible  origins  are  either  to  the  right  of 
or  behind  the  previously  loaded  vehicle,  as  shown  in  Figure 
2.  The  coordinate  axis  may  be  thought  of  in  relating  the  x 
and  y  positions.  The  x  axis  is  the  width  while  the  y  axis  is 
the  length.  The  dimensions  of  the  vehicle  being  added  are 
denoted  by  VEHL,  VEHW,  and  VEHH  corresponding  to  its  length, 
width  and  height  respectively.  These  positions  are  selected 
as  possible  origins  because  they  limit  the  possible 
positions  of  the  next  vehicle  to  a  finite,  manageable  number 
of  locations.  Finally,  of  all  the  possible  origins,  a 
subset  of  "permissible"  origins  is  defined.  This  subset  of 
"permissible"  origins  is  determined  by  deleting  from  all 
possible  origins  those  which  have  already  been  utilized  by 
loaded  vehicles.  [Ref.  16] 

The  order  of  inspection  of  those  permissible  origins  is: 

1.  The  x-position  ordered  from  the  first  vehicle  loaded 
to  the  last  vehicle  loaded. 

2.  The  y-position  ordered  from  the  first  to  the  last 
vehicle  loaded. 


This  order  of  inspection  tends  to  load  the  deck  in  rows, 
always  starting  from  the  deck's  origin  (bottom  left  corner). 


FORWARD 


SHIP'S  DECK 


T 

y 

Direction 


(Vehicle) 

(Length) 


Deck 

Origin 

(0,0) 


AFT 


X  Direction  — ^ 

(Vehicle  Width) 


Figure  2.  Possible  Origins  for  Placing  Vehicles 
on  the  Deck. 
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To  determine  if  a  vehicle  may  be  loaded  at  a  given 


permissible  origin,  it  is  necessary  to  maintain  a  record  of 
all  previously  loaded  vehicles  and  their  relative  positions 
on  the  deck.  This  is  accomplished  by  maintaining  a  record  of 
the  previously  loaded  vehicles'  dimensions  in  the  x  and  y 
directions.  Thus,  feasiblilty  is  determined  by  considering 
the  vehicle  at  a  particular  permissible  origin  and 
determining  if  the  vehicle  is  wholly  contained  within  the 
space  of  the  deck  and  if  the  vehicle  does  not  intersect  any 
previously  loaded  vehicle. 

A  local  minimum  is  obtained  by  attempting  to  move  each 
vehicle,  as  it  is  loaded,  toward  the  origin  of  the  deck. 
This  is  accomplished  by  determining  if  the  vehicle  may  be 
moved  along  one  of  the  x  or  y  directions  toward  the  deck'*? 
origin.  Movement  is  only  permitted  if  the  vehicle  does  not 
intersect  any  previously  loaded  vehicle.  The  vehicle  is 
moved  in  one  direction  at  a  time  and  movement  is  continued 
in  an  iterative  fashion  until  no  further  movement  toward  the 
origin  is  possible.  [Ref.  17] 

The  next  section  will  briefly  describe  the  notation  used 
in  the  loading  algorithm  and  following  that,  the  algorithm 
is  stated.  After  the  statement  of  the  algorithm,  a  brief 


sample  problem  is  solved  for  illustrative  purposes 


B.  NOTATION  AND  DESCRIPTION  OF  MATRICES 

Before  stepping  through  and  describing  the  loading 
algorithm,  notation  is  briefly  discussed  and  the  matrices 
used  in  the  algorithm  are  defined. 

There  are  n  vehicles  to  be  loaded  and  their 
characteristics  are  contained  in  matrix  D.  Matrix  D  is 
defined  as  an  (nx6)  matrix  of  vehicles  that  are  to  be  loaded 
as  follows: 

PRI#  VEHL  VEHW  VEHH  VSQFT  WGT 
111111 


PRI#  VEHL  VEHW  VEHH  VSQFT  WGT 

n  n  n  n  n  n 

where  PRI#  is  the  priority  number  of  the  vehicle. 

VEHL  is  the  length  of  the  vehicle. 

VEHW  is  the  width  of  the  vehicle. 

VEHH  is  the  height  of  the  vehicle. 

VSQFT  is  the  square  feet  occupied  by  the  vehicle. 

WGT  is  the  weight  of  the  vehicle. 

Matrix  D  is  used  in  the  algorithm  as  a  device  to 

maintain  a  record  of  the  vehicles  yet  to  be  loaded. 

To  make  a  determination  of  whether  a  vehicle  will  fit  at 

a  given  origin.  Matrix  R  is  established  and  updated  with 

each  vehicle  that  is  loaded  onto  the  deck.  Matrix  R  is 

defined  as  follows: 


27 


J".'-".  J'.  -V' I", ^ 


I .  .p  ^ 


Y  (X  >VEHW  )  (Y  -t-VEHL  )  VEHH  VSQFT  WGT 
11111  1  11 


•  • 


Y  (X  +VEHW  )  (Y  +VEHL  )  VEHH  VSQFT  WGT 
nnnnn  n  nn 


N  is  the  priority  number  of  VEH  whose  length,  width 

j  j 

and  height  are  VEHL,  VEHW,  and  VEHH  respectively,  where 
1  £  j  £  n,  and  whose  origin  is  located  at  coordinates  X  ,y  . 

j  j 

Thus,  the  first  column  of  matrix  R  identifies  the 
priority  number  of  the  vehicle,  columns  two  and  three 
identify  the  vehicle's  location  on  the  deck  and  columns  four 
and  five  describe  the  area  occupied  by  the  vehicle  while 
column  six  is  the  vehicle  height.  Column  seven  is  somewhat 
redundant  by  listing  the  square  footage  of  the  vehicle  and 
column  eight  lists  the  vehicle's  weight. 

Matrix  R  allows  the  determination  of  fit  to  be  made 
through  a  series  of  very  fast  logic  checks.  These  logic 
checks  are  discussed  in  the  next  section. 

To  facilitate  the  selection  of  the  next  origin  where  the 
algorithm  attempts  to  load  the  current  vehicle,  a  logical 
matrix  of  possible  and  permissible  origins  is  established. 
By  an  extremely  rapid  scan  of  this  matrix,  defined  as  Matrix 
B,  the  next  origin  is  quickly  determined.  Matrix  B  is  an 


(nx2)  matrix  as  follows: 


Each  row  of  matrix  B  corresponds  to  a  row  in  matrix  R. 
The  two  elements  in  each  row  of  matrix  B  correspond  to  the 
x-direction  and  y-direction  possible  origins  associated  with 
each  vehicle  as  described  by  matrix  R.  Of  all  the  possible 
origins,  the  permissible  origins  are  defined  by  setting  a 
true  value  to  each  element  in  matrix  B  which  corresponds  to 
the  possible  origin  which  is  also  a  permissible  origin.  It 
is  precisely  these  permissible  origins  where  attempts  are 
made  to  load  additional  vehicles. 

C.  STATEMENT  OF  THE  ALGORITHM 

To  lead  n  vehicles  onto  a  ship's  deck  the  following 
steps  are  used: 

1.  Input  the  length,  width  and  overhead  height 
restriction  of  the  deck. 

2.  Check  to  see  that  all  vehicles'  heights  are  within  the 
height  limitations. 

3.  Establish  matrix  B. 

.  Load  the  first  vehicle.  Augment  matrices  R  and  B  with 
an  additional  row  to  represent  this  vehicle.  Adjust 
matrix  B  if  necessary,  by  removing  an  origin  from  the 
set  of  permissible  origins. 
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5. 

Select  the 
vehicles  are 

next 

left. 

vehicle  in  matrix  0. 
go  to  step  10. 

If  no 

more 

6. 

Select  the 

next 

permissible  origin. 

The 

next 

permissible  origin  corresponds  to  the  next  true 
element  in  column  1  of  matrix  B  (x-position) ,  followed 
by  the  next  true  element  in  the  second  column  (y- 
position).  Call  the  selected  origin  (ORW,ORL) .  if  all 
origins  have  been  tried  go  to  step  5. 

7a.  Determine  if  the  vehicle  will  fit  at  this  origin. 
This  is  determined  by  the  following  logic  checks: 

For  the  X  direction, 

(R(j»4)  +  VEHW)  >  DECKW  or  (R(j,3)  +  VEHL)  >  DECKL 
For  the  y  direction, 

(R(j,5)  +  VEHL)  >  DECKL  or  (R(j,2)  +  VEHW)  >  DECKW 

where  1  <  j  £  n.  A  true  condition  indicates  that  the 
vehicle  wTll  not  fit  at  this  origin. 

7b.  Improve  the  density  of  loading  if  possible.  Inspect, 
one  at  a  time,  each  possible  direction  of  improvement 
(x,y).  Each  direction  of  improvement  is  found  by 
inspecting  the  origin  (ORW,ORL)  under  question  and 
each  row  of  matrix  R.  To  determine  if  improvement  is 
possible  in  the  x  direction,  the  following  logic 
check  is  made  on  each  row  of  matrix  R: 


R(j,2)  >  (ORW  +  VEHW)  or  R(j,3)  >  (ORL  +  VEHL)  or 
R(j,6)  <  ORL. 


A  true  condition  indicates  that  improvement  is  not 
possible  at  this  row  in  matrix  R.  A  false  condition 
indicates  that  improvement  is  possible.  The  magnitude  of 
improvement  is  ORW  -  R(j,5),  and  is  denoted  in  the  algorithm 
as  tne  variable  slack  [Ref.  18].  The  improvement  found  over 
all  rows  of  matrix  R  is: 


To  determine  improvement  in  the  y  direction  the  logic 
check  is: 

R(j»3)  >  (ORL  +  VEHL)  or  R(j,2)  >  (ORW  +  VEHW)  or 
R(j,5)  <  ORW. 

The  magnitude  of  improvement  when  the  logic  check  is 
false  is  ORL  -  R(jf6). 

With  each  improvement,  the  origin  (ORW, ORL)  of  the 
vehicle  being  loaded  is  adjusted.  The  search  for  improvement 
is  continued  until  no  improvement  can  be  found  in  any 
direction. 

8.  Load  the  vehicle  and  adjust  matrices  R  and  B  with  an 
additional  row.  Adjust  matrix  B  to  preclude  any  origin 
that  may  not  be  used. 

9.  Go  to  5. 

10.  All  the  vehicles  have  been  either  loaded  or  have  been 
attempted  to  be  loaded;  terminate  the  algorithm. 

When  the  algorithm  terminates,  it  does  not  in  general 
yield  the  true  optimal  solution.  The  vehicle  loading  problem 
falls  in  the  category  of  problems  called  NP-Hard  [Ref.  14 
p.l76}.  Consequently,  a  truly  optimal  algorithm  is  not 
likely  to  be  found. 

D.  SAMPLE  PROBLEM 

In  order  to  illustrate  the  load  algorithm,  the 
following  example  is  presented.  There  are  five  vehicles  to 
be  loaded  as  shown  in  matrix  0. 


step  1,  In  this  example  the  length,  width  and  overhead 
height  limitations  of  the  ship's  deck  are  400,  200  and  100 
respectively.  The  units  are  in  inches,  except  for  the 
vehicle  area  which  is  in  square  feet  and  the  weight  is  in 
pounds. 

Step  2.  Check  to  see  that  all  the  vehicles'  heights  in 
matrix  0  are  less  than  the  overhead  height  limitation. 

Step  3.  Establish  the  B  matrix  of  origins. 

Step  4.  Load  the  first  vehicle  in  matrix  D.  This  is  the 
vehicle  with  priority  #  1  and  dimension  of  135x64x54. 
Augment  the  R  matrix  to  include  this  vehicle  as  follows: 

R  *  (1  0  0  64  135  54  60  2500)  . 

Augment  the  B  matrix  and  show  permissible  origins  by  setting 
the  applicable  element  to  true  and  remove  if  necessary  any 
origins  from  the  permissible  origins.  Thus 


Step  5.  Select  the  next  vehicle  in  the  D  matrix.  This 
is  the  vehicle  with  priority  #  2  and  dimensions  112x61x43. 

Step  6.  Select  the  next  permissible  origin.  Scan  matrix 
B  column  by  column  always  starting  at  the  top  of  each  column 
and  working  down.  In  this  example,  element  B(l,l)  is  the 
next  permissible  origin.  This  element  translates  into  an 
origin  of  (R  ( 1 , 4 ) , R  (1 , 3 ) )  or  (64,0).  Denote  this  as  the 
current  (ORW,ORL) . 

Step  7A.  Determine  if  the  vehicle  will  fit  at  this 
origin.  This  is  accomplished  by  the  following  logic  check  of 
row  one  of  matrix  R: 

(R(l,4)  +  VEHW)  >  DECKW  or  R{1,3)  +  VEHL)  >  DECKL 
This  equates  to; 

(64  +  61)  >  200  or  (0  +  135)  >  400 

which  is  obviously  false  becuase  125  is  not  greater  than  200 
and  135  is  not  greater  than  400.  Therefore,  the  vehicle  will 
fit  at  this  origin. 

Step  7B.  Since  this  is  only  the  second  vehicle 

improving  the  density  is  not  possible. 

Step  8.  Load  the  vehicle  and  augment  the  matrices  R  and 
B  as  follows: 

R  =  /  1  0  0  64  135  54  60  2500  \ 


B  ■  /  F  T 

\  T  T 

Step  5.  The  next  vehicle  in  matrix  D  is  priority  #  3 

whose  dimensions  are  219x80x74. 

Step  6.  The  next  permissible  origin  of  matrix  B  is 
B(2,l).  This  element  translates  into  an  origin  of 

(R(2,4) ,R(2,3) )  or  (125,0).  Set  ORW  >  125  and  ORL  »  0. 

Step  7A.  Determine  if  the  vehicle  will  fit  at  this 

origin.  The  following  logic  check  is  made: 

(125  +  80)  >  200  or  (0  -t-  219)  >  400 

Since  the  logic  check  is  true  for  the  x  direction,  the 
vehicle  will  not  fit  at  this  origin. 

Step  6.  Select  the  next  permissible  origin.  Since  this 
vehicle  would  not  fit  in  the  x  direction,  the  next 

permissible  origin  is  related  to  the  y  direction  and  is 
B(l,2)  which  translates  to  R (1,2) ,R (1,5)  or  (0,135). 

Step  7A.  Determine  if  the  vehicle  will  fit  at  this 

origin.  The  following  logic  check  is  made: 

(R(l,5)  +  VEHL)  >  DECKL  or  (R(l,2)  +  VEHW)  >  DECKW 
which  equates  to: 


(135  +  219)  >  400  or  (0  +  80)  >  200 


which  is  false  therefore,  the  vehicle  will  fit  at  this 
origin. 

Step  7B.  The  density  cannot  be  improved. 

Step  8.  Load  the  vehicle  and  augment  the  matrices  R  and 
B  as  follows: 


In  the  augmentation  of  the  B  matrix,  B(2,2)  was  set  to  false 
because  if  a  vehicle  were  to  be  loaded  at  that  origin  it 
would  intersect  the  vehicle  with  priority  #  3.  B(3,2)  was 
also  set  to  false  because  the  distance  from  the  third 
vehicle  loaded  to  the  ship's  aft  loading  boundry  is  less 
than  the  length  of  the  shortest  vehicle,  46  as  compared  to 
112. 

Step  5.  The  next  vehicle  in  matrix  D  is  priority  #  4 

with  dimension  118x50x50. 

Step  6.  Since  no  vehicle  was  loaded  at  B(2,l)  or  origin 
(125,0),  select  this  as  the  next  permissible  origin. 

Step  7.  This  vehicle  will  fit  and  improvement  is  not 


step  8.  Load  the  vehicle  and  adjust  R  and  B  matrices  as 
follows: 


Step  5.  The  next  and  last  vehicle  in  matrix  D  is 
priority  #  5  with  dimension  227x84x91. 

Step  6.  Because  the  distance  from  the  fourth  vehicle 
loaded  to  the  ship's  right  bulkhead  is  less  than  the  width 
of  the  smallest  vehicle,  25  as  compared  to  43,  B(4,l)  was 
set  to  false.  B(3,l)  is  the  next  permissible  origin.  This 
equates  to  (R (3 , 4 ) , R (3 , 3 )  or  (80,135). 

Step  7.  The  vehicle  will  fit.  Check  to  see  if 
improvement  is  possible.  For  illustration  purposes  the  y 
direction  will  be  shown.  To  determine  if  improvement  is 
possible  in  the  y  direction,  the  following  logic  check  is 


R(4,3)  >  (ORL  VEHL)  or  R(4,2)  >  (ORW  VEHW)  or 

R(4,4)  <  ORW 


which  equates  to: 

0  >  (135  +  227)  or  125  >  (80  +  84)  or  175  <  80 

Since  this  logic  check  is  false,  improvement  in  the  y 
direction  is  possible.  The  magnitude  of  improvement  is  ORL  - 
R(4,6)  or  135  118  which  equals  17.  No  improvement  is 
possible  in  the  x  direction  therefore,  the  origin  of  the 
vehicle  is  now  ORW  =  80,  ORL  «  117. 

Step  8.  Load  the  vehicle  and  augment  the  R  and  B 
matrices  as  follows: 


R 


fl  0  0  64 

2  64  0  125 

3  0  135  80 

4  125  0  175 

5  80  118  164 


135 

54 

60 

2500 

112 

43 

48 

610 

354 

74 

122 

4648 

118 

50 

41 

1000 

345 

91 

133 

7300 

V.  SUMMARY 


A  review  of  the  available  literature  on  loading 
algorithms  was  conducted.  A  heuristic  algorithm  was 
incorporated  from  Nelson  and  modified  for  use  in  the  loading 
algorithm  for  CAVES.  Intended  primarily  as  an  aid  for 
Embarkation  personnel,  CAVES  accomplished  its  objective  by 
simulating  the  tactical  loading  of  vehicles  on  a  rectangular 
deck. 


A.  CONCLUSIONS 

CAVES  is  an  adequate  start  at  trying  to  computerize 
vehicle  loading.  Much  remains  to  be  done  before  a  fully 
computerized  loading  system  can  become  a  reality.  The 
"Expert"  loading  system  will  need  to  consider  not  only  the 
vehicles,  but  pallets,  non-stowable  areas  on  the  deck,  and 
non-rectangular  loading  areas.  While  vehicle  graphics  are 
presented  in  Appendix  B,  a  graphical  system  to  produce  a 
vehicle  load  diagram  showing  the  placement  of  the  loaded 
vehicles  is  needed  to  make  CAVES  a  more  useable  and 


effective  embarkation  system. 


B.  RECOMMENDATIONS 


1.  That  research  and  development  of  a  fully  automated 
computer  embarkation  system  for  the  Navy  and  the  Marine 
Corps  be  continued. 

2.  That  CAVES  be  modified  to  include  the  following: 

a)  obstacles  or  non-stowable  areas  in  the  load 
algorithm, 

b)  use  of  a  graphical  system  to  produce  load 
diagrams  showing  the  placement  of  the  loaded 
vehicles. 


APPENDIX  A 


CAVES 


A.  STRUCTURE  OF  CAVES 

CAVES  was  developed  on  and  designed  to  run  on  a  micro¬ 
computer.  The  particular  machine  chosen  was  the  IBM  Personal 
Computer  configured  with  two  DS/DO  disk  drives  and  372k 
bytes  of  RAM  memory.  Written  in  PASCAL  MT+,  CAVES  is 
comprised  of  four  overlays:  1.  EMBARK;  2.  lOVEH;  3.  VEHICLE; 
and  4.  VHELP.  EMBARK  is  the  main  module  or  root  overlay  for 
the  three  other  overlays.  The  menu  (option  list)  for  EMBARK 
contains  four  options: 

1.  CREATE,  UPDATE  OR  DISPLAY  A  FILE  -  sends  the  user  to 
the  overlay  lOVEH  in  order  to  create,  update  or  display  the 
vehicle  file. 

2.  LOAD  SHIP  -  sends  the  user  to  the  overlay  VEHICLE  in 
order  to  use  the  load  algorithm. 

3.  INSTRUCTIONS  FOR  USE  OF  CAVES  -  sends  the  user  to 
the  overlay  VHELP. 

4.  QUIT/EXIT  SYSTEM  -  terminates  the  CAVES  program. 

The  lOVEH  overlay  is  the  module  responsible  for  the  key¬ 
board  input  of  files  and  printer  output  of  files.  lOVEH  acts 
as  the  database  manager  for  CAVES.  It  allows  the  user  to 
create  a  new  vehicle  file  or  update  the  existing  vehicle 
file.  It  also  allows  the  user  to  display  the  current  file, 
including  the  results  of  the  loading  algorithm.  Within  the 
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lOVEH  overlay,  procedures  Writeveh,  and  Readveh  are  the  work 
horses.  The  Writeveh  procedure  stores  the  vehicle  data  and 
in  conjunction  with  the  Readveh  procedure  allows  the  user  to 
edit  the  vehicle  file.  Procedure  Fileio  is  the  editing 
procedure  which  calls  the  Procedures  Edit  and  Display.  The 
procedure  Edit  displays  menus,  opens  up  the  files,  and  calls 
the  above  mentioned  procedures  to  edit  existing  files.  The 
procedure  Display  gives  a  screen  display  of  the  files,  while 
Procedure  Hardcopy  is  used  to  printout  the  vehicle  and 
result  files.  The  menu  (option  list)  for  lOVEH  contains 
three  options: 

1)  CREATE  OR  EDIT  VEHICLE  FILE-  puts  the  user 

in  the  file  editor  mode  and  allows  the  user  to  select  one  of 
three  options: 

a)  CREATE  NEW  VEHICLE  FILE 

b)  EDIT  OLD  VEHICLE  FILE 

e)  EXIT 

2)  SCREEN  DISPLAY  OR  HARDCOPY  OUTPUT  -  puts  the  user  in 
the  file  display  mode  and  allows  the  user  to  select  one  of 
the  following  five  options: 

a)  SCREEN  DISPLAY  OF  VEHICLE  FILE 

b)  SCREEN  DISPLAY  OF  RESULTS  FILE 

e)  HARDCOPY  OUTPUT  OF  VEHICLE  FILE 

f)  HARDCOPY  OUTPUT  OF  RESULTS  FILE 


g)  EXIT 


3)  EXIT  -  ends  the  input/output  session  and  exits  to 


the  main  program. 

The  VEHICLE  overlay  prompts  the  user  for  the  length, 
width  and  overhead  height  restriction  of  the  ship's  deck 
where  the  vehicles  are  to  be  loaded.  It  also  prompts  the 
user  for  the  number  of  vehicles  from  the  vehicle  file  that 
are  to  be  loaded.  An  end  of  loading  message  appears  on  the 
screen  when  the  loading  algorithm  is  finished. 

The  overlay  VHELP  is  a  basic  guide  for  the  first  time 
user  of  CAVES. 

B.  DESCRIPTION  OF  CRT  AND  KEYBOARD  UTILITIES 

Incorporated  throughout  CAVES  is  an  input  filtering 
system,  which  allows  the  user  to  type  in  only  the  proper 
input.  For  example,  to  select  an  option  from  the  main 
program  menu  one  of  four  inputs  is  required,  either  A,B,C  or 
E.  If  anything  else  is  typed  in,  the  bell  will  sound 
indicating  improper  input. 

The  utility  routines  for  the  filtering  system  and  cursor 
control  are  found  in  the  Module  CRTLIB.  There  are  over 
twenty  different  utility  routines  that  are  found  in  CRTLIB 
but  only  ten  are  used  frequently.  They  are  as  follows: 

1)  Procedure  Crtinit  -  To  use  the  utilities  in  Module 


CRTLIB  the  procedure  Crtinit  must  be  called  at  the  beginning 
of  the  main  program. 


Crtinit  initializes  the  arrays  CRTINFO  and  PREFIXED  so 
that  their  values  can  be  used  by  the  utilities  in  Module 


CRTLIB. 

2)  Procedure  Gotoxy (X,Y: INTEGER)  -  Places  the  cursor  at 
vertical  line  number  X  and  horizontal  line  number  Y. 

3)  Procedure  Promptat (Y:INTEGER;S:STRING)  -  Places  the 
prompt  after  the  string  S  on  line  number  Y. 

4}  Procedure  Clearscreen  -  Clears  the  screen  and  places 
the  prompt  at  the  position. 

5)  Procedure  Clear  it (I : INTEGER)  -  Clears  the  screen  of 
everything  from  line  I  to  the  bottom  of  the  screen. 

6)  Function  Getchar (OKSETtSETCHAR) :  CHAR;  -  Performs 
the  task  of  reading  a  character  from  the  keyboard.  The  input 
to  Getchar  is  a  variable  set  of  characters,  called  OKSET  in 
Getchar 's  declaration.  When  a  character  is  inputted  from  the 
keyboard,  Getchar  verifies  that  it  is  in  OKSET.  If  it  is, 
this  character  becomes  the  value  of  the  Function  Getchar  and 
is  used  in  the  procedure  calling  Getchar;  if  it  is  not,  a 
beep  is  sounded  and  the  process  is  repeated  until  a 
character  in  OKSET  is  entered. 

7)  Function  Yes;  BOOLEAN  -  Uses  Getchar  to  check  if  the 
input  is  a  'Y*  and  if  so  sets  its  value  to  true. 

8)  Procedure  Whead (S iSTRING)  -  Whead  will  center,  print 
and  underline  a  string  S.  It  is  primarily  used  for  headings. 

9)  Procedure  lntread(VAR  K: INTEGER)  -  Intread  is  used 
to  read  an  integer  between  -32768  and  +32767.  The  characters 


proper 


are  filtered,  put  into  a  string,  checked  for  the 
range,  and  then  converted  to  an  integer. 

10)  Procedure  Spacebar  -  Used  as  a  manual  stopping 
mechanism.  The  message  "Press  Spacebar"  is  displayed  on  the 
screen  to  the  user  and  then  Getchar  is  called  to  insure  the 
spacebar  input. 

It  is  the  use  of  the  above  routines  within  CAVES  that 
makes  CAVES  a  user  friendly  computer  program. 
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APPENDIX  B 


VEHICLE  GRAPHICS 

To  enhance  and  make  CAVES  a  more  useable  product,  a  set 
of  vehicle  graghics  were  created.  As  shown  in  Figure  4  each 
vehicle  is  a  re-creation  of  actual  templates  used  by 
embarkation  personnel  to  load  ships.  While  not  actually 
incorporated  into  CAVES,  the  vehicle  graphics  are  a  needed 
aid  in  helping  embarkation  personnel  load  ships.  Used  in 
conjuction  with  a  graphical  loading  system  and  CAVES,  the 
vehicle  graphics  would  "print"  a  picture  of  the  results  from 
the  loading  algorithm. 
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Figure  4.  Vehicle  Graphics 


APPENDIX  C 


COMPUTER  PROGRAM 


A.  PROGRAM  EMBARK 


PROGRAM  EMBARK; 

CONST  BELL  =  07; 
RTN  *  13; 

BSP  =  8; 
MAXCOLR  =  8; 
MAXCOLO  »  6; 


TYPE 

STRING16  =  STRING  [16]; 

CRTCOMMAND  =  (ERASEOS , ERASEOL , UP , DOWN , RIGHT , LEFT , 
LEAD I N , TIME , FCOLOR , BCOLOR , REVIDON , 
REVIDOFF, INTENON, INTENOFF,BLINKON, 
BLINKOFF) ; 

SETOFCHAR  »  SET  OF  CHAR; 

PTR  =  "INTEGER; 

CPMOPERATION  =  (COLDBOOT,WARMBOOT, CONSTAT, CONIN, 

CONOUT, LIST, PUNOUT,RDRIN, HOME, 
SELDSK , SETTRK , SETSEC , SETDMA , 
DSKREAD,DSKWRITB) ; 

STRING40  STRING  [40]; 

STRING60  «  STRING  [60]; 

NUMVEH  »  1..100; 

MATCOLR  *  1..8; 

MATCOLB  «  1..2; 

MATCOLD  =  1..6; 

MATRIXl  =  ARRAY  [NUMVEH, MATCOLR]  OF  INTEGER; 

MATRIX2  ■  ARRAY [NUMVEH, MATCOLB]  OF  BOOLEAN; 
MATRIX3  =  ARRAY [NUMVEH, MATCOLD]  OF  INTEGER; 

VAR  I,J,IONDIM,IOM,ROWDIMB:  INTEGER; 

ROBFLAG , AO I FLAG , I OBFLAG , QU ITFLAG :  BOOLEAN ; 

R:  MATRIXl; 

D:  MATRIX3; 

B:  MATRIX2; 

SELECT:  CHAR; 

OKSET:  SETOFCHAR; 

SBLASTX,SBLASTY:  EXTERNAL  INTEGER; 

(*  EXTERNAL  PROCEDURES  AND  FUNCTIONS  *) 

EXTERNAL  PROCEDURE  CRTINIT; 


EXTERNAL  PROCEDURE  CRT (C:CRTCOMMAND) ; 

EXTERNAL  PROCEDURE  GOTOXY (X^Y: INTEGER) ; 

EXTERNAL  PROCEDURE  PROMPTAT (Y: INTEGER; S ; STRING) ; 

EXTERNAL  PROCEDURE  CLEARSCREEN; 

EXTERNAL  PROCEDURE  CLEARIT ( I : INTEGER) ; 

EXTERNAL  FUNCTION  GETCHAR (OKSET: SETOFCHAR) :  CHAR; 

EXTERNAL  FUNCTION  YES:  BOOLEAN; 

EXTERNAL  PROCEDURE  GETSTRING (VAR  S : STRING ; MAXLEN :  INTEGER) 
EXTERNAL  PROCEDURE  WAIT; 

EXTERNAL  PROCEDURE  WHEAD (S : STRING ) ; 

EXTERNAL  PROCEDURE  INTREAD (VAR  K: INTEGER); 

EXTERNAL  PROCEDURE  SPACEBAR; 

EXTERNAL  [3]  PROCEDURE  FILEIO; 

EXTERNAL  (191  PROCEDURE  LOAD; 

EXTERNAL  [23]  PROCEDURE  HELP; 

(*  END  OF  EXTERNAL  DECLARATIONS  *) 

BEGIN  (*  EMBARK  *) 

CRTINIT; 

QUITFLAG  :=  FALSE; 

AOIFLAG  FALSE; 
lOBFLAG  :=  FALSE; 

ROBFLAG  FALSE; 

REPEAT 

CLEARSCREEN; 

WHEAD ('  COMPUTER  AIDED  VEHICLE  EMBARKATION  SYSTEM  '); 
GOTOXY (0,3) ; 

WRITELNC  ';5,'A  'CREATE,  UPDATE  OR  DISPLAY  A  FILE'); 
WRITELN; 

WRITELNC  ':5,'B  ',’LOAD  SHIP'); 

WRITELN; 

WRITELNC  ':5,'C  ',' INSTRUCTIONS  FOR  USE  OF  CAVES'); 
WRITELN; 

WRITELNC  ':5,'Q  ', 'QUIT/EXIT  SYSTEM'); 

WRITELN; 


WRITE  ('  5, 'SELECT  ONE  :  '); 

OKSET  ;»  I'A' ..'C  ,'Q'l  ; 

SELECT  :«  GETCHAR (OKSET) ; 

clearscreen; 

IF  SELECT  »  'Q'  THEN 
BEGIN 

PROMPTAT  (10, 'DO  YOU  REALLY  WANT  TO  QUIT?  TYPE  Y  FOR 
YES,  N  FOR  NO’ ) ; 

IF  YES  THEN  QUITFLAG  :»  TRUE; 

CLEARSCREEN; 

END 

ELSE 

CASE  SELECT  OF 
'A':  FILEIO; 

'B':  LOAD; 

'C:  HELP; 

END; 

UNTIL  QUITFLAG; 

END.  (*  EMBARK  *) 


B.  OVERLAY  lOVEH 


MODULE  OVERLAY  3; 

CONST  BELL  *  07; 
RTN  *  13; 

BSP  «  8; 
MAXCOLR  =  8; 
MAXCOLD  *  6; 


TYPE 

STRING16  =  STRING[161; 

CRTCOMMAND  >  (ERASEOS , ERASEOL , UP , DOWN , RIGHT , LEFT , LEADIN , 

TIME,  FCOLOR , BCOLOR , REVIDON , REVI DOFF , I NTENON , 
INTENOFF,  BLINKON,BLINKOFF) ; 

SETOFCHAR  >  SET  OF  CHAR; 

PTR  ■  “INTEGER; 

CPMOPERATION  =  (COLDBOOT,WARMBOOT, CONSTAT, CONIN,CONOUT, 
LIST,  PUNOUT,RORIN,HOME,SELDSK,SETTRK, 
SETSEC,SETDMA,  DSKREAD,DSKWRITE) ; 

STRING40  >  STRING [401; 

STRING60  »  STRING [601; 

TYPE  NUMVEH  »  1..100; 

MATCOLR  »  1..8; 

MATCOLB  »  1..2; 

MATCOLD  »  l.,6; 

MATRIXl  *  ARRAY [NUMVEH, MATCOLR]  OF  INTEGER; 

MATRIX2  =  ARRAY [NUMVEH, MATCOLB)  OP  BOOLEAN; 

MATRIX3  *  ARRAY [NUMVEH, MATCOLD]  OF  INTEGER; 

VECTOR  =  ARRAY [MATCOLD]  OF  INTEGER; 

VECTORl  =  ARRAY  [MATCOLR]  OF  INTEGER; 

VAR 

lOM, IONDIM,ROWDIMB:  EXTERNAL  INTEGER; 
ROBFLAG,AOIFLAG,IOBFLAG:  EXTERNAL  BOOLEAN; 

R:  EXTERNAL  MATRIXl; 

D:  EXTERNAL  MATRIX3; 

F;  FILE  OF  VECTOR; 

FI:  FILE  OF  VECTORl; 

{*  EXTERNAL  PROCEDURES  AND  FUNCTIONS  *) 

EXTERNAL  PROCEDURE  CRTINIT; 

EXTERNAL  PROCEDURE  CRT  (C: CRTCOMMAND ) ; 

EXTERNAL  PROCEDURE  GOTOXY (X,Y: INTEGER) ; 

EXTERNAL  PROCEDURE  PROMPTAT (Y : INTEGER; S : STRING) ; 

EXTERNAL  PROCEDURE  CLEARSCREEN; 


52 


EXTERNAL  PROCEDURE  CLEARIT ( I : INTEGER) ; 

EXTERNAL  FUNCTION  GETCHAR  (OKSETrSETOFCHAR) :  CHAR; 

EXTERNAL  FUNCTION  YES:  BOOLEAN; 

EXTERNAL  PROCEDURE  GETSTRING  (VAR  S : STRING ; MAXLEN :  INTEGER) 
EXTERNAL  PROCEDURE  WAIT; 

EXTERNAL  PROCEDURE  WHEAD (S : STRING) ; 

EXTERNAL  PROCEDURE  INTREAD (VAR  K: INTEGER); 

EXTERNAL  PROCEDURE  SPACEBAR; 

(*  END  OF  EXTERNAL  DECLARATIONS  *) 


PROCEDURE  PMEN  (I : INTEGER;C:CHAR;S:STRING) ;  (*  CREATES  MENU 

FOR  OVERLAY*) 

BEGIN  (*  PMEN  *) 

GOTOXY  (0,1)  ; 

WRITELN(C:3, '  ';3,S); 

END;  (*  PMEN*) 

PROCEDURE  HEAD (A:STRING;J: INTEGER) ;  (*  PRINTS  HEADING  *) 

VAR  I: INTEGER; 

BEGIN  (*  HEAD  *) 

I  :=  (80  -  LENGTH (A))  DIV  2; 

GOTOXY  (I, J)  ; 

WRITELN (A) ; 

END;  (*  HEAD  *) 


PROCEDURE  FILEIO; 

VAR  QUITFLAG:  BOOLEAN; 

CHOICE;  CHAR; 

OKSET;  SETOFCHAR; 

PROCEDURE  WRITEVEH (I ; INTEGER) ;  (*  WRITES  CAVES  DATA  TO 

FILE  VEH.DAT  *) 

LABEL  100; 

VAR  IOR,K,L,J;  INTEGER; 

WVEFLAG:  BOOLEAN; 

BEGIN  (*  WRITEVEH  *) 

HEAD (’CAVES  WRITE  FILE  MODE’,0); 

WVEFLAG  ;=  FALSE; 

REPEAT 


ASSIGN(F, 'B:VEH.OAT');  (*  CREATES  NEW  VEHICLE 

FILE  VEH.DAT  *) 

RESET (F) ; 

100;  (*  CONTINUE  *) 

CLEARIT(l) ; 

GOTOXY (1,2); 

K  :*  3; 

WRITELNCROW  ',1,'  OF  THE  VEHICLE  FILE  IS:  '); 

WRITELN; 

WRITELNCPRI  #  LENGTH  WIDTH  HEIGHT 

SOFT  WEIGHT'); 

GOTOXY (3,6); 

FOR  L  :=  1  TO  MAXCOLD  DO 
BEGIN 

INTREAD (J) ; 

F‘‘[L]  :=  J; 

K  :=  K  +  10; 

GOTOXY (K,6)  ; 

END; 

SEEKWRITE(F,I)  ; 

CLOSE (F,IOR) ; 

WRITELN; 

WRITELNCROW  I  HAS  BEEN  WRITTEN  TO  THE  VEHICLE 

FILE  '); 

ASSIGN (F, 'BzVEH.DAT' ) ; 

RESET (F) ; 

CLEARIT (1)  ; 

WRITELN; 

WRITELNCROW  OF  THE  VEHICLE  FILE  IS:  ’); 

WRITELNCPRI  «  LENGTH  WIDTH  KEIGHT 

SOFT  WEIGHT'); 

WRITELN; 

SEEKREAD (F, I)  ; 

WRITEC  ',F“lll,'  ',F*12J,'  ',F*13],'  '); 

WRITELN (F* [4] , '  ',F“15],'  ',F“161); 

CLOSE  (F, lOR) ; 

PROMPT AT  (7, ' IS  THIS  CORRECT?  TYPE  Y  FOR  YES  N  FOR  NO  ') 
IF  NOT  YES  THEN  GOTO  100; 

WVEFLAG  :*  TRUE; 

UNTIL  WVEFLAG; 

END;  (*  WRITEVEH  *) 

PROCEDURE  READVEH (I; INTEGER) ; (*  READS/EDITS  CAVES  DATA 

FROM  VEH.DAT  *) 

VAR  IOR,K,L,J:  INTEGER; 

RVEFLAG:  BOOLEAN; 

BEGIN  (*  READVEH  *) 

HEAD ('CAVES  FILE  EDIT  MODE',0); 

RVEFLAG  ;=  FALSE; 

REPEAT 


ASSIGN  (F, 'B:VEH, DAT* ) ;  (*  OPENS  EXISTING  VEHICLE 

FILE  VEH.DAT  *) 

RESET (F) ; 

CLEARIT (1) ; 

GOTOXY (1,2)  ; 

WRITELNCROW  ',1,'  OF  THE  VEHICLE  FILE  IS:  '); 
WRITELN; 

WRITELNCPRI  i  LENGTH  WIDTH  HEIGHT 

SOFT  WEIGHT'); 

SEEKREAD(F,I)  ; 

WRITEC  '^F-lll,'  •,F"[21,*  ',F“13],'  *); 

WRITELN (F* [4] , '  ’/F^lej); 

CLOSE  (F, lOR) ; 

PROMPT AT (7 IS  THIS  CORRECT?  TYPE  Y  FOR  YES, 

N  FOR  NO. * ) ; 

IF  NOT  YES  THEN 
BEGIN 

ASSIGN (F, ‘BlVEH.DAT* ) ; 

RESET (F) ; 

CLEARIT  (1) ; 

GOTOXY  (1,2)  ; 

K  :=  3; 


WRITELNCROW  ’,1,' 

OF  THE  VEHICLE  FILE 

IS:  •); 

WRITELN; 

WRITELNCPRI  # 

LENGTH  WIDTH 

HEIGHT 

SOFT 

WEIGHT* ) ; 

GOTOXY (3,6); 


FOR  L  :»  1  TO  MAXCOLD  DO 
BEGIN 

INTREAD (J) ; 

F*(L]  ;»  J; 

K  :=  K  +  10; 

GOTOXY (K,6) ; 

END; 

SEEKWRITE  (F, I)  ; 

CLOSE (F,IOR) ; 

WRITELN; 

WRITELNCROW  #  ',1,'  HAS  BEEN  WRITTEN  TO  THE  VEHICLE 

FILE  '); 

END 

ELSE 

RVEFLAG  :*  TRUE; 

UNTIL  RVEFLAG; 

END;  (*  READVEH  *) 


PROCEDURE  EDIT; 

VAR  EDQUIT;  BOOLEAN; 

EDCHOICE;  CHAR; 

PROCEDURE  AENTER (AORBzCHAR) ; 
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VAR  IOR,K,I,J,COLOIM,ROWDIM:  INTEGER; 

MANAME:  STRING (91; 

AENFLAG:  BOOLEAN; 

BEGIN  (*  AENTER  *) 

CLEARSCREEN; 

CASE  AORB  OF 
'A':  BEGIN 

ASSIGN  (F, ’BlVEH.DAT' ) ; 

REWRITE (F) ; 

CLOSE (F,10R) ; 

MANAME  :*  'VEHICLE'; 

END; 

END; 

AENFLAG  FALSE; 

REPEAT 

CLEARIT(l) ; 

GOTOXY  (1,2) ; 

WRITE ('WHAT  ROW  OF  THE  MANAME,'  FILE  DO  YOU 

WANT  TO  ENTER  ' ) 

INTREAD (I) ; 

CASE  AORB  OF 

'A':  WRITEVEH(I); 

END; 

PROMPTAT(10, 'DO  YOU  WISH  TO  CONTINUE?  TYPE 

Y  OR  N • ) ; 

IF  NOT  YES  THEN  AENFLAG  TRUE; 

UNTIL  AENFLAG; 

END;  (*  AENTER  *) 

PROCEDURE  AEDIT (AORB:CHAR) ; 

VAR  I , J,C0LDIM,R0WDIM:  INTEGER; 

MANAME:  STRING (91; 

AEDFLAG:  BOOLEAN; 

BEGIN  (*  AEDIT  *) 

CLEARSCREEN; 

AEDFLAG  :=  FALSE; 

REPEAT 

CLEARIT (1) ; 

GOTOXY  (1,2)  ; 

WRITE ('ENTER  ROW  *  YOU  WISH  TO  EDIT  '); 

INTREAD (I) ; 

CASE  AORB  OF 

'A':  READVEH(I); 

END; 

PROMPTAT (10, 'DO  YOU  WISH  TO  CONTINUE  TYPE 

Y  OR  N  ' ) ; 

IF  NOT  YES  THEN  AEDFLAG  ;■  TRUE; 

UNTIL  AEDFLAG; 

END;  (*  AEDIT  *) 


BEGIN  (•  EDIT  *) 


CLEARSCREEN; 

WHEADC  CAVES  FILE  EDITOR  MENU  '); 

EDQUIT  :>  FALSE; 

REPEAT 

CLEARIT  (1); 

PMEN (2, 'A* , 'CREATE  NEW  VEHICLE  FILE'); 
PMEN (4, 'B' , 'EDIT  OLD  VEHICLE  FILE'); 
PMEN (6, 'E' , 'EXIT' ) ; 

GOTOXY (2,10) ; 

WRITE ( 'SELECT  ONE  :  '); 

OKSET  :=  [ 'A' , 'B' , 'E' ] ; 

EDCHOICE  ;=  GETCHAR  (OKSET ) ; 

CASE  EDCHOICE  OF 
'A':  AENTER('B'); 

'B':  AEDIT('B'); 

'E':  EDQUIT  :*  TRUE; 

END; 

UNTIL  EDQUIT; 

END;  (*  EDIT  *) 


PROCEDURE  DISPLAY; 

VAR  DISQUIT;  BOOLEAN; 
DISCHOICE:  CHAR; 


PROCEDURE  DDISPLA(AORB;CHAR) ; 

LABEL  250,275; 

VAR  I, J,K,IOR,ROWDIM, COUNTER:  INTEGER; 
CH:  CHAR; 

CFLAG:  BOOLEAN; 

MANAME:  STRING (91; 

BEGIN  (*  DDISPLA  *) 

CLEARSCREEN; 

HEAD  ('CAVES  SCREEN  DISPLAY  MODE',0); 
CASE  AORB  OF 

'A';  MANAME  :=  'VEHICLE'; 

•B':  MANAME  :=  '  RESULT'; 

END; 

GOTOXY  (1,2) ; 

WRITELNCTHE  ', MANAME, 'S  OF  THE  '  ,MAI 
WRITELN; 

ROWDIM  :*  15; 

COUNTER  :»  1; 

CASE  AORB  OF 

'A':  BEGIN 

ASSIGN (F, 'B:VEH.DAT' )  ; 
RESET (F) ; 

WRITELN; 

WRITE ('PRI  «  LENGTH 

WRITELN ('  WEIGHT'); 

250:  (*  CONTINUE  *) 


, MANAME, 'S  OF  THE  ', MANAME, '  FILE  ARE 


WIDTH 


HEIGHT 
SQFT' ) 


FOR  I  :=  COUNTER  TO  ROWDIM  DO 
BEGIN 

SEEKREAD(F,I) ; 

WRITEC  '^F-tll,'  •,F"(21,'  ’rF-OJ); 

WRITELNC  ',F"[4J,*  •,F-t51,'  •,F"[61) 

ROWDIM  :»  ROWDIM  +  15; 

COUNTER  ;*  COUNTER  +  15; 

END; 

PROMPTAT (22, 'DO  YOU  WISH  TO  CONTINUE  TYPE 

Y  OR  N' ) ; 

IF  YES  THEN 
BEGIN 

GOTOXY  (1,6) ; 

GOTO  250; 

END; 

CLOSE(F, lOR) ; 

SPACEBAR; 

END; 

'B':  BEGIN 

ASSIGN (FI, 'B;RESULTS.DAT' ) ; 

RESET (FI) ; 

WRITELN; 

WRITE  CPRI  #  X  Y  X+VEHW  '); 

WRITELN ( 'Y+VEHL  HEIGHT  SQFT  WEIGHT') 
275;  (*  CONTINUE  *) 

FOR  I  ;»  1  TO  ROWDIM  DO 

begin 

SEEKREAO(Fl,I) ; 

WRITEC  •,F1“[1],'  •,F1"(2),'  •); 

WRITE(F1-(31 ,'  •,F1*(41,'  •,F1"151) 

WRITELNC  •,F1“16],'  •,F1*17J,'  •,Fl*lB]) 

ROWDIM  :=  ROWDIM  +  15; 

COUNTER  :*  COUNTER  +15; 

END; 

PROMPTAT(22, 'DO  YOU  WISH  TO  CONTINUE  TYPE 

Y  OR  N' ) ; 

IF  YES  THEN 
BEGIN 

GOTOXY  (1,6) ; 

GOTO  275; 

END; 

CLOSE(Fl,IOR) ; 

SPACEBAR; 

END; 

END; 

END;  (*  DDISPLA  *) 

PROCEDURE  HCOPY (AORB:CHAR) ; 

VAR  CH;  CHAR; 

CFLAG:  BOOLEAN; 

MANAME;  STRING (91; 


CNUM^I:  INTEGER; 

BEGIN  (*  HCOPY  *) 

CASE  AORB  OF 

'A':  CNUM  :»  1; 

'B':  CNUM  :»  2; 

END; 

CLEARIT(l) ; 

HARDCOPY (CNUM) ; 

END;  (*  HCOPY  *) 

BEGIN  (*  DISPLAY  *) 

DISQUIT  :»  FALSE; 

REPEAT 

CLEARSCREEN; 

WHEADC  CAVES  FILE  DISPLAY  MENU  '); 

PMEN (2, 'A' , 'SCREEN  DISPLAY  OF  VEHICLE  FILE'); 

PMEN (4, 'B' , 'SCREEN  DISPLAY  OF  RESULTS  FILE'); 

PMEN  (6, 'C , 'HARDCOPY  OUTPUT  OF  VEHICLE  FILE’); 

PMEN (8, 'D' , 'HARDCOPY  OUTPUT  OF  RESULTS  FILE'); 
PMEN(10, 'E' , 'EXIT'); 

GOTOXY (2,14)  ; 

WRITE ('SELECT  ONE  :  '); 

OKSET  ['A*..'E'l; 

DISCHOICE  :«  GETCHAR (OKSET) ; 

CASE  DISCHOICE  OF 
'A':  DDISPLA( 'A' ) ; 

'B':  DDISPLACB' )  ; 

'C:  HCOPY  ('A'); 

' D ' :  HCOPY  ( ' B ' ) ; 

'E':  DISQUIT  :»  TRUE; 

END; 

UNTIL  DISQUIT; 

END;  (*  DISPLAY  *) 

BEGIN  (*  FILEIO  *) 

CLEARSCREEN; 

QUITFLAG  :»  FALSE; 

REPEAT 

CLEARSCREEN; 

WHEADC  COMPUTER  AIDED  VEHICLE  EMBARKATION  SYSTEM  ') 
PMEN (2, 'A' , 'CREATE  OR  EDIT  VEHICLE  FILE'); 

PMEN (4, 'B' , 'SCREEN  DISPLAY  OR  HARDCOPY  OUTPUT'); 
PMEM(6, 'E' , 'EXIT' ) ; 

GOTOXY (2,8)  ; 

WRITE ('SELECT  ONE  :  '); 

OKSET  :»  ('A','B','E'l; 

CHOICE  :■  GETCHAR (OKSET) ; 

CASE  CHOICE  OF 
'A';  EDIT; 

'B':  DISPLAY; 

'E';  QUITFLAG  ;«  TRUE; 


end; 

UNTIL  QUITFLAG; 

END;  {*  PILEIO  *) 

PROCEDURE  HARDCOPY  (HNUM:  INTEGER); 

VAR  F:  TEXT; 

CH:  CHAR; 

PRFLAG:  BOOLEAN; 

DIM, RESULT:  INTEGER; 

PROCEDURE  SETPRINT; 

VAR  CH:  CHAR; 

FTRIES:  INTEGER; 

BEGIN  (*  SETPRINT  *) 

PRFLAG  :«  FALSE; 

FTRIES  :=  0; 

REPEAT 

ASSIGN (F, 'LST: ' ) ; 

REWRITE (F) ; 

IF  lORESULT  =  255  THEN 
BEGIN 

FTRIES  :=  FTRIES  +  1; 

IF  FTRIES  <«  2  THEN 
BEGIN 

WRITELNC  PUT  PRINTER  ON  LINE  '); 
SPACEBAR; 

END; 

END 

ELSE 

PRFLAG  :»  TRUE; 

UNTIL  PRFLAG  OR  (FTRIES>2); 

END;  (*  SETPRINT  *) 

PROCEDURE  PRTFILE (AORB:  CHAR;DIM:  INTEGER) 
CONST  MAXCOLR  *  8; 

MAXCOLD  *  6; 

VAR  1,J:  INTEGER; 

MANAME:  STRING  [9 J; 

BEGIN  (*  PRTFILE  *) 

CASE  AORB  OF 

•a':  MANAME  :«  ’VEHICLE'; 

•B':  MANAME  :»  'RESULTS'; 

END; 

WRITELN (F) ; 

WRITELN (F, 'THE  ', MANAME, '  FILE’); 

WRITELN (F) ; 

FOR  I  :=  1  TO  DIM  DO 
BEGIN 

CASE  AORB  OF 

'A':  FOR  J  :=  1  TO  MAXCOLD  DO 
BEGIN 


WRITE(F,D(IrJ] ) ; 

WRITE (F,'  •); 

END; 

•B':  FOR  J  :=  I  TO  MAXCOLR  DO 
BEGIN 

WRITE (F,R[I#J1); 

WRITE  (F,*  •); 

END; 

END; 

WRITELN (F) ; 

END; 

END;  (*  PRTFILE  *) 

BEGIN  (*  HARDCOPY  *) 

WRITELN; 

WRITE ('HOW  MANY  ROWS  OF  THE  FILE  DO  YOU  WISH  PRINTED 
INTREAD (DIM) ; 

SPACEBAR; 

clearscreen; 

SETPRINT; 

IF  PRFLAG  THEN 
BEGIN 

CASE  HNUM  OF 

1:  PRTFILE ( 'A* , DIM) ; 

2:  PRTFILE ( 'B' , DIM) ; 

END; 

CLOSE (F, RESULT) ; 

END; 

END;  (*  HARDCOPY  *) 


MODEND 


C.  OVERLAY  VEHICLE 


MODULE  OVERLAY19; 

TYPE 

STRING16  -  STR1NG[16]; 

CRTCOMMAND  -  (ERASEOS , ERASEOL , UP , DOWN , RIGHT , LEFT, LEADIN , 
TIME , FCOLOR, BCOLOR , REVI DON , REVIDOFF , 
INTENOU,INTENOFF,BLINKON,BLINKOFF) ; 
SETOFCHAR  »  SET  OF  CHAR; 

PTR  =  “INTEGER; 

CPMOPERATION  *  (COLDBOOT,WARMBOOT, CONSTAT, CONIN,CONOUT, 
LIST, PUNOUT, RDRIN, HOME, SELDSK,SETTRK, 
SETSEC,SETDMA,DSKREAD,DSKWRITE) ; 

STRING40  =  STRING  [40]; 

NUMVEH  »  1..100; 

MATCOLR  =  1..8; 

MATCOLB  =  1..2; 

MATCOLD  »  1..6; 

MATRIXl  =  ARRAY [NUMVEH, MATCOLR]  OF  INTEGER; 

MATRIX2  -  ARRAY [NUMVEH, MATCOLB]  OF  BOOLEAN; 

MATRIX3  =  ARRAY [NUMVEH, MATCOLD]  OF  INTEGER; 

VECTOR  *  ARRAY [MATCOLD]  OF  INTEGER; 

VECTORl  =  ARRAY [MATCOLR]  OF  INTEGER; 


VAR 

R:  external  MATRIXl; 

B:  external  MATRIX2; 

D:  EXTERNAL  MATRIX3; 

IBPR, IBPC,IAP,ICP,NL,NWORG,NLORG,NZORG,VEHH,SMLW,SMLL, 
AREA, ORL,ORW,ORZ,ORLDL,ORWDW,ORZDH, SLACK, XYZ,VEHL,VEHW, 
SMLZ , DECKL , DECKW , VSQFT , WGT :  INTEGER ; 

ALLGON , CHANGE ,CHECKD , SOMCHG:  BOOLEAN ; 
SBLASTX,SBLASTY,ROWDIMB:  EXTERNAL  INTEGER; 

F:  file  OF  VECTOR; 

FI:  FILE  OF  VECTORl; 

(*  EXTERNAL  PROCEDURES  AND  FUNCTIONS  *) 

EXTERNAL  PROCEDURE  INTREAD (VAR  K: INTEGER); 

EXTERNAL  PROCEDURE  SPACEBAR; 


PROCEDURE  LOAD; 

LABEL  500,600,605,610,615,620,640,645,700,705,710,711, 
722,725,730,736,800,835,999,9999; 

CONST  MAXCOLD  »  6; 

MAXCOLR  =  8; 

VAR  J , I , IBPR , IBPC , I AP , ICP , NL , NXORG , NYORG , NZORG , VEHW , VEHH , 


SMLX,SMLY,SMLZ,AREA,ORX,ORy,ORZ,ORXDL,ORyDW,ORZDH, 
SLACK, XyZ,VEHL,IOR,DECKL,DECKH,OECKW,VSQFT,WGT:  INTEGER 
ALLGON , CHANGE , CHECKD , SOMCHG :  BOOLEAN ; 

PROCEDURE  B4LOAD; 

VAR  I,J,K,I0R:  INTEGER; 

BEGIN  (*  B4LOAD  *) 

WRITE ('ENTER  NUMBER  OF  VEHICLES  TO  BE  LOADED  '); 
INTREAD (NL) ; 

WRITELN; 

WRITECTHE  NUMBER  OF  VEHICLES  TO  BE  LOADED  IS  '  ,NL)  ; 
WRITELN; 

WRITE ('ENTER  DECK  LENGTH  '); 

INTREAD (DECKL) ; 

WRITELN; 

WRITELN ('THE  DECK  LENGTH  IS  ', DECKL ) ; 

WRITE ('ENTER  DECK  WIDTH  '); 

INTREAD (DECKW) ; 

WRITELN; 

WRITELN ('THE  DECK  WIDTH  IS  ', DECKW ) ; 

WRITELN; 

WRITE  ('ENTER  OVERHEAD  HEIGHT  LIMIT  '); 

INTREAD (DECKH) ; 

ASSIGN  (F, 'B;VEH.DAT' ) ; 

RESET (F) ; 

FOR  I  :*  1  TO  NL  DO 
BEGIN 

SEEKREAD (F, I) ;  (*  TRANSFER  FROM  VEH.DAT  TO  D 

MATRIX  *) 

FOR  J  ;«  1  TO  MAXCOLD  DO 
D(I,JJ  :=  F*lJJ; 

FOR  K  :«  2  TO  3  DO 
D(I,K]  ;=  DII,K1  +  6; 

END; 

CLOSE (F,IOR)  ; 

WRITELN; 

WRITELN ( 'AFTER  THE  6  INCH  ADJUSTMENT  THE  LOAD 

MATRIX  IS:  '); 

FOR  I  :=  1  TO  NL  DO 
BEGIN 

FOR  J  1  TO  6  DO 
BEGIN 

WRITE  (0[I,J]  )  ; 

WRITE  ('  '); 

END; 

WRITELN; 

END; 

SPACEBAR; 

END; 


BEGIN  (*  LOAD  *) 

B4LOAD; 

WRITELNCNL  IN  LOAD  IS  SNL); 

FOR  I  :«  1  TO  NL  DO 
BEGIN 

IF  (D[I,41  >=  DECKH)  THEN 
DIR  A: 

BEGIN 

WRITELNCTHE  LOADING  PROCESS  HAS  BEEN  STOPPED  BECAUSE'); 
WRITELN; 

WRITELN ( 'VEHICLE  PRI  #  EXCEEDS  HEIGHT  LIMITS'); 

SPACEBAR; 

GOTO  9999; 

END; 

END; 

SMLL  10000; 

SMLW  10000; 

(*  SELECT  THE  SMALLEST  PERMISSABLE  MARGINS  IN  THE 

X  AND  Y  DIRECTIONS  *) 

FOR  J  ;=  1  TO  NL  DO 
BEGIN 

IF  (D[J,21  <  SMLL)  THEN  SMLL  :=  DU, 2); 

IF  (DU,  3]  <  SMLW)  THEN  SMLW  :»  D[J,3]; 

END; 

lAP  :=  0; 

B[l,l]  ;*  TRUE; 

B[l,2]  TRUE; 

AREA  0; 

ICP  ;*  0; 

500: 

ICP  ;*  ICP  +  1; 

IF  (ICP  >  NL)  THEN  GOTO  999; 

NWORG  ;=  1; 

NLORG  1; 

IF  ((D(ICP,2J  >  DECKL)  OR  (D[ICP,3)  >  DECKW)  )  THEN 
BEGIN 

WRITELNCTHE  LOADING  PROCESS  HAS  BEEN  STOPPED  BECAUSE'); 
WRITELN; 

WRITELN ( 'VEHICLE  PRI  #  ',DlI,lJ,’  EXCEEDS  BOUNDARY 
LIMITATIONS ' ) ; 

SPACEBAR; 

GOTO  9999; 

END; 

VEHL  D(ICP,2] ; 

VEHW  :»  D [ICP,31 ; 

VEHH  :=  DHCP, 4]  ; 

VSQFT  :•  D  tICP,5] ; 

WGT  :«  D[ICP,61 ; 

600:  (*  CONTINUE  *) 

IF  (lAP  »  0)  THEN  (*  IAP*0,  IMPLIES  1ST 

PASS  THROUGH  ALGORITHM  *) 


BEGIN 

ORW  :«  0; 

ORL  :«  0; 

IBPR  ;»  1; 

IBPC  ;■  1; 

GOTO  800; 

END 

ELSE 

GOTO  605; 

605:  (*  CONTINUE  *) 

IF  (  NWORG  >  lAP  )  THEN  GOTO  615; 

(*  TRY  THE  X  POSITION  FIRST  *) 

FOR  IBPR  :=  NWORG  TO  lAP  DO 
BEGIN 

IF  (NOT  B[IBPR,1])  THEN  GOTO  610 

ELSE 

BEGIN 

IF  ( (RIIBPR,4]+VEHW)  >  DECKW)  THEN  GOTO  610 

ELSE 

BEGIN 

IF  (  (R(IBPR,3]-t-VEHL)  >  DECKL)  THEN  GOTO  610 

ELSE 

BEGIN 

GOTO  640 

END; 

END; 

END; 

610:  END; 

NWORG  :=  lAP  +1; 

615:  (*  CONTINUE  *) 

{*  SINCE  NO  MORE  X  POSITIONS  TRY  FOR  Y  *) 

IF  (  NLORG  >  lAP  )  THEN  GOTO  800; 

FOR  IBPR  :«  NLORG  TO  lAP  DO 
BEGIN 

IF  (NOT  B  I  IBPR, 2] )  THEN  GOTO  620 

ELSE 

BEGIN 

IF  ( (R[IBPR,5J+VEHL)  >  DECKL)  THEN  GOTO  620 

ELSE 

BEGIN 

IF  (  (R[IBPR,2]-t-VEHW)  >  DECKW)  THEN  GOTO  620 

ELSE 

BEGIN 

GOTO  645 

END; 

END; 

END; 

620:  END; 

NLORG  :-  lAP  1; 

645:  (*  CONTINUE  *) 

NLORG  :-  IBPR  -t-  1; 


ORW  :>  R[IBPR,2] ; 

ORL  :>  R[1BPR,51; 

IBPC  ;■  2; 

(*  found  an  origin  now  go  load  vehicle  *) 

GOTO  800; 

640:  {*  CONTINUE  *) 

NWORG  IBPR  +  1; 

ORW  :*  R[IBPR,4] ; 

ORL  R[IBPR,3] ; 

IBPC  :=  1; 

(*  FOUND  AN  ORIGIN  NOW  GO  LOAD  VEHICLE  *) 

(*  END  OF  MODULE  TO  GET  ORIGIN  *) 

800:  (*  CONTINUE  *) 

(*  SEE  IF  VEHICLE  WILL  FIT  *) 

ORWDW  :=  ORW  +  VEHW; 

ORLDL  :>  ORL  VEHL; 

(*  IF  THIS  IS  THE  FIRST  VEHICLE  IT  MUST  FIT,  SO  LOAD  IT  NOW  *) 
IF  (lAP  <»  0)  THEN  GOTO  835; 

(*IF  VEHICLE  WILL  NOT  FIT  GO  GET  ANOTHER  ORIGIN,  IMPROVE  THE 
DENSITY  IF  POSSIBLE.  DO  THIS  BY  FINDING  A  VEHICLE  THAT  WILL 
INITIALLY  FIT  AND  THEN  PROGRESSIVELY  MOVE  THE  VEHICLE  TO  THE 
LEFT, DOWN,  AND  TOWARD  THE  FRONT,  IF  POSSIBLE.  THAT  IS,  MOVE 
THE  VEHICLE  TOWARD  THE  FIXED  ORIGIN.  REPEAT  UNTIL  NO  FUTHER 
IMPROVEMENT  IS  POSSIBLE  IN  ANY  DIRECTION.*) 

SOMCHG  :*  FALSE; 

CHECKD  :«  FALSE; 

700:  (*  CONTINUE  *) 

CHANGE  :«  FALSE; 

(*  FIND  MOST  RESTRICTING  VEHICLE  IN  LOWER  Y  DIRECTION  IN 
ORDER  TO  SEE  IF  VEHICLE  WILL  FIT  AND  TO  SEEK  AN  IMPROVEMENT. 
(HOWEVER,  NO  IMPROVEMENT  IS  POSSIBLE  IF  ORL  IS  ALREADY  AT 
ITS  MIN  (0)  OR  ORIGIN  IS  AN  ’Y’  ORIGIN  (IBPC  »  2) .  *) 

IF  (NOT  SOMCHG  AND  (IBPC  *  2))  THEN  GOTO  711 

ELSE 

BEGIN 

IF  (ORL  «  0)  THEN  GOTO  711 

ELSE 

BEGIN 

SLACK  :»  ORL; 

CHECKD  :«  TRUE; 

END; 

END; 

FOR  I  :-  1  TO  lAP  DO 
BEGIN 

IF  ((R(I,21  >«  ORWDW)  OR  (R[I,4]  <»  ORW)  OR 
(R(I,3]  >*  ORLDL))  THEN  GOTO  710 

ELSE 

BEGIN 

IF  (R[I,5]  <«  ORL)  THEN  GOTO  705 

ELSE 

BEGIN 
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(*  GO  GET  ANOTHER  ORIGIN  *) 

GOTO  605 
END; 

705;  (*  CONTINUE  *) 

WRITELN ( 'VEHICLE  TEST  #8 ' ) ; 

XYZ  ;*  ORL  -  R[I,5]  ; 

IF  (SLACK  >  XYZ)  THEN  SLACK  :=  XYZ 

end; 

710:  END; 

IF  (SLACK  >=  1)  THEN 
BEGIN 

CHANGE  :»  TRUE; 

SOMCHG  :=  TRUE; 

ORL  :»  ORL  -  SLACK; 

ORLDL  :«  ORLDL  -  SLACK; 

END; 

711:  (*  CONTINUE  *) 

(*  FIND  MOST  RESTRICTING  VEHICLE  IN  X  DIRECTION  SIMILAR  TO 
ABOVE  SEARCH  MAKE  SURE  THE  LOCATION  IS  CHECKED  AT  LEAST 
ONCE.  *) 

IF  (NOT  CHECKD)  THEN  GOTO  722 

ELSE 

BEGIN 

IF  (ORW  =  0)  THEN  GOTO  736 

ELSE 

BEGIN 

IF  (NOT  SOMCHG  AND  (IBPC  =  1))  THEN  GOTO  736 
END; 

END; 

722:  (*  CONTINUE  *) 

SLACK  :=  ORW; 

CHECKD  :=  TRUE; 

FOR  I  ;»  1  TO  lAP  DO 
BEGIN 

IF  (  (R[I,3]  >=  ORLDL)  OR 

(R(I,5]  <=  ORL)  OR  (R(I,2J  >=  ORWDW) )  THEN  GOTO  730 

ELSE 

BEGIN 

IF  (R(I,4]  <*  ORW)  THEN  GOTO  725 

ELSE 

BEGIN 

GOTO  605 
END; 

725:  (*  CONTINUE  *) 

XYZ  ;»  ORW  -  R  [1,41 ; 

IF  (SLACK  >  XYZ)  THEN  SLACK  :»  XYZ 
END; 

730;  END; 

IF  (SLACK  >=  1)  THEN 
BEGIN 

CHANGE  :»  TRUE; 
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SOMCHG  :«  TRUE; 

ORW  :«  ORW  -  SLACK; 

ORWDW  :«  ORWDW  -  SLACK; 

END; 

736:  (*  CONTINUE  *) 

(*  NOW  IF  ANY  CHANGE  HAS  OCCURED  DURING  THE  ABOVE  SEARCHES, 
LOOP  BACK  AND  TRY  TO  FIND  MORE  IMPROVEMENT  IN  THE  OTHER 
DIRECTION  *) 

IF  (CHANGE)  THEN  GOTO  700; 

835:  (*  CONTINUE  *) 

(*  THIS  ORIGIN  (ORW,ORL)  WILL  NOT  RESTRICT  THE  VEHICLE'S 
LOADING.  RECORD  THE  VEHICLE  IN  ARRAY  R  *) 
lAP  :=  lAP  +  1; 

R[IAP,11  :»  D[ICP,11 ; 

R[IAP,2]  :=  ORW; 

R[IAP,3]  :=  ORL; 

R[IAP,41  :=  ORWDW; 

R[IAP,5]  i-  ORLDL; 

RIIAP,6]  :=  VEHH; 

R(IAP,7]  :»  VSQFT; 

R[IAP,8]  :=  WGT; 

(*  NOW  UPDATE  LOGICAL  ARRAY  B  (THIS  POINT  IS  NOW  FILLED) 
AND  ESTABLISH  THE  2  NEW  POSSIBLE  ORIGINS  *) 

IF  (lAP  >  1)  THEN  B(IBPR,IBPC1  :=  FALSE; 

B[IAP,11  :*  TRUE; 

BlIAP,2]  :=  TRUE; 

(*  OVERIDE  THESE  TRUE  SETTINGS  OF  ORIGINS  IF  NO  VEHICLE  CAN 
POSSIBLY  FIT  *) 

IF  ((DECKW  -  ORWDW)  <  SMLW)  THEN  B[IAP,1)  :=  FALSE; 

IF  ((DECKL  -  ORLDL)  <  SMLL)  THEN  B[IAP,2i  :=  FALSE; 

(*  CUMULATIVE  AREA  *) 

AREA  :*  AREA  +  VSQFT; 

GOTO  500; 

999:  (*  END  LOADING  PROCESS  *) 

ASSIGN (FI, 'B:RESULTS.DAT’ ) ; 

REWRITE  (FI) ; 

FOR  I  :»  1  TO  NL  DO 
BEGIN 

FOR  J  :=  1  TO  MAXCOLR  DO 
F1*(JJ  :»  RII,J1; 

SEEKWRITE(F1,I)  ; 

END; 

CLOSE(Fl,IOR) ; 

AFTLOAD (DECKL, DECKW, AREA) ; 

9999:END;  (*  LOAD  *) 

PROCEDURE  AFTLOAD (DECKL, DECKW, AREA:  INTEGER); 

VAR  AA:  REAL; 

BEGIN  (*  AFTLOAD  *) 

WRITELN  ('LOADING  IS  COMPLETED  ...  USE  THE  "DISPLAY" 
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OPTION  TO  GET  RESULTS') 


AA  ;■  (DECKL  /12)  *  (DECKW/12); 

WRITELN ('AREA  AVAILBLE  WAS  •,AA;7;2,'  SQUARE  FEET ' ) ; 
WRITELN; 

WRITELN ('AREA  USED  IS  ' ,AREA, '  SQUARE  FEET'); 
SPACEBAR; 

END;  (*  AFTLOAD  *) 


MODEND 


D.  OVERLAY  VHELP 


MODULE  OVERLAY23; 

EXTERNAL  PROCEDURE  GOTOXY(X,Y:  INTEGER); 

EXTERNAL  PROCEDURE  CLEARSCREEN; 

EXTERNAL  PROCEDURE  SPACEBAR; 

(*  END  OF  EXTERNAL  DECLARATIONS  *) 

PROCEDURE  HELP; 

TYPE  STRNG60  »  STRING [40]; 

VAR  INFO:  ARRAY [1.. 14]  OF  STRNG60; 

I:  INTEGER; 

BEGIN  {*  HELP  *) 

INFO(l]  'CAVES -COMPUTER  AIDED  VEHICLE  EMBARKATION* 
INFO  [2]  :«  'SYSTEM  IS  A  MENU  DRIVEN  COMPUTER  PROGRAM' 
INFO  [3]  'DESIGNED  TO  HELP  EMBARKATION  PERSONNEL  ' 
INFO [4]  :>  'LOAD  VEHICLES  ON  BOARD  A  SHIP.  TO  USE  ' 
INFO [5]  :«  'CAVES  ONE  MUST  KEY  IN  ALL  PERTINENT  DATA' 
INFO  [6]  :*  'ABOUT  THE  VEHICLES  INTO  THE  VEHICLE  PILE' 
INFO  [7]  'THIS  WILL  INCLUDE  THE  LENGTH,  WIDTH,  ' 
INFO [8]  'HEIGHT, AREA, WIEGHT  AND  PRIORITY  NUMBER  ' 
INFO  [9]  :»  'OF  THE  VEHICLE.  ' 

INFO  [10]  :»  'USE  THE  "CREATE  FILE"  OPTION  TO  CREATE 
INFO  [11]  'THE  VEHICLE  FILE.  ONCE  ALL  THE  VEHICLE 
INFO[12]  :=  'DATA  IS  TYPED  INTO  THE  VEHICLE  FILE,  THE 
INFO [13]  :=  '"LOAD"  OPTION  CAN  THEN  BE  UTILIZED  TO 
INFO[14]  'LOAD  THE  SHIP. 

CLEARSCREEN; 

GOTOXY (0,0)  ; 

WRITE ('DIRECTIONS  FOR  USE  OF  CAVES  '); 

GOTOXY  (0,3)  ; 

FOR  I  :»  1  TO  11  DO 
WRITELN(INFO[I] ) ; 

GOTOXY (0,20) ; 

SPACEBAR; 

END;  (*  HELP  *) 

MODEND. 
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